100 GOTO300
110 :
120 :   ******************************
130 :   *                            *
140 :   * DEMOPROGRAMM ZUM KOPIEREN  *
150 :   * DES SPEICHERBEREICHS $C000 *
160 :   * -$FFFF NACH $8000-$BFFF IN *
170 :   * DER FLOPPY 1541            *
180 :   *                            *
190 :   ******************************
200 :   *                            *
210 :   * VON                        *
220 :   *                            *
230 :   * DIETER PRIESS              *
240 :   * SCHUETZENSTR. 35           *
250 :   * 2400 LUEBECK 1             *
260 :   * TEL.: 0451/863222          *
270 :   *                            *
280 :   ******************************
290 :
300 FORI=0TO32:READX:S=S+X:NEXTI:IFS<>5511THENPRINT"[198]EHLER IN [196]ATAS !":END
310 RESTORE
320 OPEN1,8,15
330 FORI=0TO32
340 READX
350 PRINT#1,"M-W"CHR$(I)CHR$(5)CHR$(1)CHR$(X)
360 NEXTI
370 PRINT#1,"U3"
380 CLOSE1
390 DATA120,160,0,162,192,169,128,132,192,132,194,134,193,133,195,162,64
400 DATA177,192,145,194,200,208,249,230,193,230,195,202,208,242,88,96